From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 24 Feb 1994 20:01:13 +0000 (+0000)
Subject: (compute_motion, vmotion): Use Fget_char_property to test for invisibility.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~92994
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=67406ef460442417a1daa4e0e5728ecc9a8c7a42;p=emacs.git

(compute_motion, vmotion): Use Fget_char_property to test for invisibility.
---

diff --git a/src/indent.c b/src/indent.c
index cafe6122e91..5824dbc9993 100644
--- a/src/indent.c
+++ b/src/indent.c
@@ -474,7 +474,7 @@ compute_motion (from, fromvpos, fromhpos, to, tovpos, tohpos, width, hscroll, ta
       while (pos == next_invisible && pos < to)
 	{
 	  XFASTINT (position) = pos;
-	  prop = Fget_text_property (position,
+	  prop = Fget_char_property (position,
 				     Qinvisible,
 				     Fcurrent_buffer ());
 	  {
@@ -663,9 +663,9 @@ vmotion (from, vtarget, width, hscroll, window)
 		      && indented_beyond_p (prevline, selective))
 #ifdef USE_TEXT_PROPERTIES
 		     /* watch out for newlines with `invisible' property */
-		     || ! NILP (Fget_text_property (XFASTINT (prevline),
+		     || ! NILP (Fget_char_property (XFASTINT (prevline),
 						    Qinvisible,
-						    Fcurrent_buffer ()))
+						    window))
 #endif
 		 ))
 	    prevline = find_next_newline (prevline - 1, -1);
@@ -700,9 +700,9 @@ vmotion (from, vtarget, width, hscroll, window)
 		   || ! indented_beyond_p (prevline, selective))
 #ifdef USE_TEXT_PROPERTIES
 		  /* watch out for newlines with `invisible' property */
-		  && NILP (Fget_text_property (XFASTINT (prevline),
+		  && NILP (Fget_char_property (XFASTINT (prevline),
 					       Qinvisible,
-					       Fcurrent_buffer ()))
+					       window))
 #endif
 		  ))
 	    break;